home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS01.ADF / ABasicStuff / Tools / cardfilefix.bas < prev    next >
BASIC Source File  |  1985-12-12  |  164b  |  9 lines
  1. 10    open "o",#3,"Index.him"
  2. 20    p$(1)="Address"
  3. 30    print#3,p$(1)
  4. 40    for j=2 to 7
  5. 50    p$(j)="Blank"+str$(j)
  6. 60    print#3,p$(j)
  7. 70    next j
  8. 80    close
  9.